# (decoded with TMPL 11972)
{----------}
Procedure DoCopy;
Begin
	if cur^.text <> nil then begin
		TECopy (cur^.text);
		scrapDirty := true;
	end;
End; {DoCopy}